home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE20 / TIPTRIX / LISTING2.SQL < prev    next >
Encoding:
Text File  |  1997-03-17  |  413 b   |  21 lines
  1. CREATE PROCEDURE NextNoGet(aTable CHAR(20))
  2. RETURNS(aNextNo INTEGER)
  3. AS
  4. BEGIN
  5.   SELECT Number FROM NEXTNO_BP
  6.     WHERE Id = :aTable
  7.     INTO :aNextNo;
  8.   IF (aNextNo IS NULL) THEN
  9.   BEGIN
  10.     INSERT INTO NEXTNO_BP(Id, Number) VALUES(:aTable, 2);
  11.     aNextNo = 1;
  12.   END
  13.   ELSE
  14.   BEGIN
  15.     UPDATE NEXTNO_BP SET Number = Number + 1
  16.       WHERE Id = :aTable;
  17.     aNextNo = aNextNo + 1;
  18.   END
  19. END
  20.  
  21.